* all files 
clear
local files : dir "data\in\dta\" files "*.dta"
di `files'

cd "data\in\dta"

foreach file in `files' {
di "`file'"
append using `file' 
}
recast byte noncomplier stratgroups hour 

* drop if ever used > 50 kwh in one hour 
replace forbruk_kwh = 0 if forbruk_kwh == . 
egen maxkwh = max(forbruk_kwh), by(maalepktnr)
drop if maxkwh > 50
drop maxkwh 

* take out meters with 3 weeks consecutive 0s. 
fmerge m:1 maalepktnr using "data\in\meters_with_3week0s.dta", keepusing(maalepktnr) keep(master) nogenerate

fmerge m:1 Målepunktnr using "data\in\\kunder_randomisert.dta", keep(match master) keepusing(treat) nogenerate

keep maalepktnr lnforbruk dato hour treat noncomplier tid stratgroups
g int year = year(dato)
g byte month = month(dato)
g byte day = day(dato) 

keep if year == 2019 & month < 12 

sort maalepktnr tid 
drop if maalepktnr == maalepktnr[_n-1] & tid == tid[_n-1] & lnforbruk == lnforbruk[_n-1]
drop if maalepktnr == maalepktnr[_n-1] & tid == tid[_n-1] 
xtset maalepktnr tid 

tab month year  

g byte elcar = inrange(stratgroups,7,12) // elbil merged on navn eller etternavn og adresse
g byte Treat = (treat=="Pris")
  drop treat 

g forbruk = exp(lnforbruk)

g lnforbruk_jan_march = lnforbruk if inrange(month,1,3)
g forbruk_jan_march = forbruk if inrange(month,1,3)
g lnforbruk_april_nov = lnforbruk if inrange(month,4,11)
g forbruk_april_nov = forbruk if inrange(month,4,11)

save "data\out\pre_patterns_sample.dta", replace 
